perm filename TEST.ALP[AL,HE] blob sn#297800 filedate 1977-08-04 generic text, type T, neo UTF8
		;Start of program
	XPROG
		;BLOCK
	XMVAR
		;$B1.BAR
	36
		;$B1.FOO
	40
	0
		;Assignment
	XPUSH
	L1
	XCHNGE
		;$B1.FOO
	40
		;WHILE Loop
L2:	XPUSH
	L4
	XJUMPC
	L3
		;BLOCK
		;Assignment
	XPUSH
	L5
	XCHNGE
		;$B1.BAR
	36
		;Move
	XMOVE
	L6
	4
		;Move
	XMOVE
	L7
	4
	XPUSH
	L11
	XCHNGE
		;BDEPROACH
	30
		;Move
	XMOVE
	L12
	4
	XPUSH
	L11
	XCHNGE
		;BDEPROACH
	30
		;Assignment
	XPUSH
	L14
	XCHNGE
		;$B1.BAR
	36
		;Move
	XMOVE
	L15
	4
		;Move
	XMOVE
	L16
	4
	XPUSH
	L11
	XCHNGE
		;BDEPROACH
	30
		;Block end cleanup
		;End of BLOCK
	XJUMP
	L2
L3:		;END WHILE
		;Block end cleanup
	XKVAR
		;$B1.BAR
	36
		;$B1.FOO
	40
	0
		;End of BLOCK
	XENDP
		;End of program